home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Franz PD / Franz PD Disk #240 (1993)(Rhein-Sieg-Soft).zip / Franz PD Disk #240 (1993)(Rhein-Sieg-Soft).adf / Paragon / InstallFont.S / InstallFont.S
Text File  |  1993-06-02  |  1KB  |  71 lines
  1.  
  2. * mInstallFontm (p) by Volker Stepprath
  3. * InstallFont benötigt den CLI-Befehl mFFm & mRunm !
  4.  
  5.  
  6. _LVOExecBase        equ        4
  7. _LVOOpen            equ      -30
  8. _LVOClose           equ      -36
  9. _LVOExecute         equ     -222
  10. _LVOFindTask        equ     -294
  11. _LVOGetMsg          equ     -372
  12. _LVOWaitPort        equ     -384
  13. _LVOOldOpenLibrary  equ     -408
  14. _LVOCloseLibrary    equ     -414
  15.  
  16.  
  17.     * Workbench oder CLI *
  18.  
  19.     move.l  _LVOExecBase,a6
  20.  
  21.     suba.l  a1,a1
  22.     jsr     _LVOFindTask(a6)
  23.  
  24.     move.l  d0,a4
  25.     tst.l   $ac(a4)
  26.     bne     FromCLI
  27.  
  28.     lea     $5c(a4),a0
  29.     jsr     _LVOWaitPort(a6)
  30.  
  31.     jsr     _LVOGetMsg(a6)
  32.  
  33.  
  34.     * Spherix.font installieren *
  35.  
  36.     lea     Dosname,a1
  37.     jsr     _LVOOldOpenLibrary(a6)
  38.     move.l  d0,DosBase
  39.  
  40.     move.l  DosBase,a6
  41.  
  42.     move.l  #Fenster,d1
  43.     move.l  #1006,d2
  44.     jsr     _LVOOpen(a6)
  45.     move.l  d0,Handle
  46.  
  47.     move.l  #Befehl,d1
  48.     moveq   #0,d2
  49.     move.l  Handle,d3
  50.     jsr     _LVOExecute(a6)
  51.  
  52.     move.l  Handle,d1
  53.     jsr     _LVOClose(a6)
  54.  
  55.     move.l  _LVOExecBase,a6
  56.  
  57.     move.l  DosBase,a1
  58.     jsr     _LVOCloseLibrary(a6)
  59.  
  60. FromCLI
  61.     RTS
  62.  
  63.  
  64. Dosname dc.b 'dos.library',0
  65. DosBase dc.l 0
  66. Fenster dc.b 'CON:20/30/610/80/InstallFont',0
  67. Handle  dc.l 0
  68. Befehl  dc.b ':Paragon/FF :Paragon/Fonts/Spherix.font',10
  69.         dc.b ':Paragon/Paragon',10
  70.         dc.b ':Paragon/FF topaz.font',10,0
  71.